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PROLOG LOCK AND UPDATE ROUTINES 


DECLARATIONS 
RMSLOCK PROLOG = ROUTINE TO LOCK PROLOG AND CHECK FOR EXTEND O.K. 
RMSUPD_PROLOG2 = ROUTINE TO UPD 


UP 


16-SEP-1984 01:02:22 VAX/VMS Macro V04-00 


ATE AND REWRITE PROLOG 


Page 


mM 2 | 
RMZEXTEND PROLOG LOCK AND UPDATE ROUTINES 16-SEP-1984 01:02:22 VAX/VMS _M 4-00 p | 
VOG=000 31984 14:54:03 ERM SRCIRMDEXTEND maR;1 28% cy. 


SBEGIN RM2EXTEND,000,RMSRMS2,<PROLOG LOCK AND UPDATE ROUTINES> 


2 a eid i hen hla aa ala kata 


Sth lg (c) 1978, 1980, 1982, 1984 B 
ty GIT TAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


* 
* 
RI * 
* 

SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
SION OF THE ABOVE se gpellia NOTICE. THIS SOFTWARE OR ANY OTHER * 
§ THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. : 
* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
* 

ITY FOR THE USE OR RELIABILITY OF ITS’ * 
* 

* 

* 
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DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: RMS32 


Abstract: 


This module provides two routines to handle the locking 
and updating of file prologs on extends. 
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Environment: 
STAR PROCESSOR RUNNING STARLET EXEC. 
Author: L F Laverdure, Creation date: 1-DEC-1977 
Modified By: 
v03-006 ff 40030 J E Johns 24-Jul-1984 
ix broken error seche og RMSLOCK PROLOG to keep from 

00 ts nt the same BDB/BLB twice On an error exit. 
00 v03-005 pasdess Ron Schaefer 30-Mar-1984 
bp Fix STV value on error paths for RMS$_RPL ond "RMSS _WPL errors. 
00 v03-004 kBT0333 Keith B. Thompson 10-Sep-1982 
op Remove $FRBDEF 
00 v03-003 KBT0220 Keith B. Thompson 23-Aug-1982 
BS Reorganize psects 
00 v03-002 KBT0118 Keith B. Thompson 6-Aug-1982 
00 Remove ref. to set_sifb_adr 
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v03-001 KBT0092 Keith B. Thompson 13-Jul-1982 
Clean up psects 
v02-010 CdS0003 C Saether 10-Dec-1981 
Fix broken branch. 
v02=009 cos00d2 C. Saether 28-Aug-1981 | 


Modifications for new cache/release routines. 
Use RMSRLNER1 entry point now. 


v02-008 ¢DdS0001 C. Saether 17-Apr-1981 
Fix error path on prologue write errors to not release 
bucket twice. 


| 
V02-007 REFORMAT Maria del C. Nasr 2-Aug~1980 | 


v006 CDS0049 C Saether 31-0CT-1979 19:45 
Lock BDB allocated at connect time now. Remove code to 
allocate and deallocate on the fly. 

v005 CdS0025 C Sae 27-jul-1979 5:30 
interlock on vbn =-1 $3" sharing sequential file 

v004 Cds0001 C D Saether 16-Mar-1979 16:10 


get bcb on extend when shored, don't release prologue 
wice on error 


v003 RANOOO3 R A Newell 99-Nov-1978 10:36 
file sharing code enhancements 
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Woe RMSLO ROLOG = ROUTINE TO LOCK PROLOG gr oe O19 4 01:92:88 RMS.SRCIRMZEXTEND.MAR; 1 ° dh v04- 
.SBTTL RMSLOCK_PROLOG = ROUTINE TO LOCK PROLOG AND CHECK FOR EXTEND O.K. 
p++ 
; RMSLOCK_PROLOG 


This routine causes the prolog (vbn 1) for a relative file 

to be locked for an extend operation. 

The protog is read in, its checksum is verified, the noextend flag is checked 
for being clear if this is a relative file, a lock bdb is allocated, and 

the buffer for the proiog is released keeping vbn 1 locked. 


; Calling sequence: 


OOOCCOCOCOCOCOCOOCOCOoCoCoOo 1 rT 


bsbw rm$lock_prolog 
; Input Parameters: 


ri impure area address 
ri10 ifab address 

r9 ifab/irab address 
r8 fab/rab address 


Implicit Inputs: 
none 
Output Parameters: 
r0 status code 


r4 lock bdb address 
ri-r3,r5,ap destroyed 


22 as 


Implicit Outputs: 
none 
Completion Codes: 
standard rms. 
Side Effects: 


none 


OOCCCOCOCOCOSOOOCOOOOOSOOOOOOCOOSOOOCOOOOOCOOOOCOOOOOOOSoOoO OO 
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VOL O00 RM$LOCK_PROLOG = ROUTINE TO LOCK PROLOG -SEP=1984 01:92:85 RNS SRCIRMSEXT EXTEND.MAR; 1 — 3) V04: 
8 18 
0 if This is not an entry point to this module. 
0 71° 
09 176 SEQLCK: 
7,-2.2 ee 0 17 MNZGL #1,R1 3-1 tori 
52.4 4 174 CLRL R2- i; no size 
00 175 $CACHE VBN=R1, E=R2,- 
9005 17% FLAGS= ethene NOREAD , NOBUF FER> 
008 17 3; lock on vbn =-1 
05 Babe 178 RSB 3 and return 
000C + $ RMSLOCK_PROLOG: : 
6A 38 EO 000C 181 BBS #IFBSV_SEQFIL,(R10),- 
FO OOOF 18 SEQLCR ; branch if sequential file 
0010 18 SCACHE VENA, SIZE=# 
0010 184 LAGS= stOtKERR= oERRAPE ; read & lock prolog 
28°86. £9 0094 186 BBC RnECHKSUR ee een 
0027 187 ASSUME att RNOEXTEN ND EQ 0 
07 10 AS £9 O0027 188 BLBC PLGS$SB_FLAGS(R5),10$ 3; extends allowed 
4h 189 RMSERR EXT 3 extends not allowed 
1D 2611 bo%S 139 108 B ERROR ; and out 
53 04 00 $033 136 ; MOVL #RLSSM_KEEP_LOCK,R3 3; specify flag for release 
FFC8' 30 0035 19 BSBW RMSRELEASE 3; release buffer for vbn 1 | 
05 0038 194 RSB 
B88 
0039 197; error reading prolog - change error code | 
0039 198 ; 
B31 cane. 
0c ag D5 0039 201 : Ist FABSL_STV(R8) ; do we shave, an stv? 
OC AB 50 00001000 &F C9 iF 208 108 TET sete RO, FABSL sree, rer ot the RMS error there 
54 D4 004C 205  CLRL RG ; don't release bdb/blb again in put. 
05 O04E 06 RSB 
a 
O04 210 > handle checksum error by releasing lock on prolog | 
4F 11° 
Q0aF —31¢ ERROR: | 
50 43 004F 1 PUSHL RO 3 Save status code 
FFAC' 30 0051 14 SBW RMSRLNER1 ; release lock 
50 B8EDO 0054 15 POPL RO ; restore status 
54 D4 et 16 CLRL R4 ; don't release again in put 
iH i; RSB 3 return to caller 
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DO 
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TT 
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-SBTTL RMSUPD_PROLOG2 = ROUTINE TO UPDATE AND REWRITE PROLOG 


wr 
Cc, 
eee 


+ 
a 


RMSUPD. PROLOG2 
RM$SE TREBK | 
RMSALSPLG 
This routine bauses the prolog (vbn 1) for a relative file to be Sie 
and rewritten to the file, releasing the lock on the prolog. 
If the status code on entry to this routine indicates an error, 
noextend bit is set in the prolog indicating that the file canker 2 * extended. 
Calling sequence: | 
bsbw rm$upd_prolog2 | 
alternate entry at rm$rlsplg to merely release the prolog lock. 


Input Parameters: 


rij impure area address 

ri0 ifab address 

r9 ifab/irab address 

r8 fab/rab address 

r6 new eof vbn (= high block + 1) 
r0 status code 


Implicit Inputs: 


Output Parameters: 


r0 status code 
ri-r5,ap destroyed 


Implicit Outputs: 
IFBSL_HBK and IFBS$L_EBK are set from (R6 - 1) and R6 respectively. 
4 prpeen ot fileS being shared, IFBS$L_EBK is updated from 
The lock BDB is deallocated. 


Completion Codes: 


| 
| 
| 
| 
It is assumed that the prolog is already locked. 
| 


standard rms. 
Side Effects: | 
Any stream waiting on the prolog will be restarted. 
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pw wwe eel shah sh eh oh eh dh th Ak oh oh ah eh ed dh ed eh eh eh el ah eh eh ed ho eh dk eh ed dd el 
>>>>>>>r rr > rr > rr PYrrrr,rrrrrrrrrrr>?r>r rr > > > YP PYrrrrrr,r>rrr,r 
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RMSUPD_PROLOG2: : 
PUSHL 


R ; save status 
SCACHE VBN=#1,S 


1ZE=#4512,- 
FLAGSSLOCK,ERR=ERRRPL ; reread prolog blk 1 
FF9O0" 30 BSBW RMSCHKSUM i; verify checksum 
2 50 £9 BLBC —«aRO, ERRRPL : branch if bad 
4C 6— £9 BLBC (SP) ,ERREXT : branch if error on entry 
70 AS 8 MOVL R6,PLGSL_EOF (R5) ; set eof vbn 
FFB3" MAKSUM: BSBW RMSMAKSUM 3 recompute checksum 
0 88 BISB2 #BDOBSM_DRT!BDBSM_VAL,- 
OA AG BOB$B_FLGS(R4) 3; say buffer valid & dirty 
53 06 dO MOVL #RLSSM_WRT_THRU!= 
RLSSM-KEEP_LOCK,R3 ; cause immediate write 
FF79" 30 BSBW RMSRELEASE ; write vbn 1 
47 50 €9 BLBC RO,ERRWPL : branch if error 


: 
0 
4 
8 
9 
ee 
¢ ; update eof vbn and highest allocated block 
4 

5 
6 
7 
8 
9 
0 

4 

5 

6 

7 

8 

9 


RMSSETHEBK:: 
70 AA 56 «01 OCB SUBL3) = #1, R6, IFBSL_HBK (R10) ; update hi block 
OA 6A 38 €0 B #IFBSV_SEQFITL, (R10) ,SEQFL ; branch if really seq 
74 AA 56 «~*OO MOVL  R6,1FBSL_EBK(R10) : update eof bloc 
> release lock on prolog 
FF66" 30 RLSPLG: BSBW RMSRLNER1 ; free lock on prolog 
01 BA POPR #*M<RO> 3 restore status code 
05 stank RSB ; return to caller 
5A 0D 009 " PUSHL R10 > save ifab addr for what i dont know 
F6 11 9 BRB RLSPLG ; 


go release vbn -1 
| 
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enreniEN® PROLO CK AN 
v04- OLOG2 = ROUTINE TO UPDATE AND R 5-S RMS. SRCIRM moe EXTEND.MAR; 1 


RMSUP 


Handle proves read error 
Prolog may still be locked. Must release it. 


ERRRPL: 
SCACHE VBN=41,SIZE=40,- 
ELAGS=NOREAD ; find protog bdb 
Fe of E9 BLBC (SP) ,RLSPL branch if already | had error 
¢ Ps 13 rotk FABSL REVERB) oe we R.A. stv? 
OC AB 6E 00001000 +f C plots oot '902, $5?) »FABSL _stvinby? » Ay: set the RMS error there 


—_ 
Oo 
wf 


MSERR RPL,(SP ; replace status code 


Caller entered rm$upd_prolog2 with an error status. 
This must have been due to a bucket format write failure. 


: Set the noextend bit in the “preles to prevent further attempts 
; to extend the file. 


SOOCCCOCOOCOCOCOCOCOC SOOO OSOCOOCOOOOCOOOCOOCO OOO ODO OOOOOOOOOSOS I 
SOCVCCVCOCT SCOT CGTAAAMOAAAAOOOMOOCCCWWW>>r>>r>r>r rr rrrr ur 


COOCOCOCOCOCOOCOCOOCOCOOOCOOCOOOOOOOOOOOOOOCOOOOOO OOOO O OOOO OOOOOOOOOSoSO VO 


1 1 
1 1 
1 1 
1 14 
1 36 
1 i 
1 i§ 
C 0 
2 
4 
; 
8 
9 
0 
1 
3 
33 ERREXT: 
01 88 34 BISB2 ft NOEXT ~. - 
10 AS 4 335 BAA CAG AGS(R ; set flag 
6 36 RMSERR EX xi tp) : update error code 
56 74 AA 00 8 37 MOVL  IFB$L_EBK(R10),R6 ; cause ebk not to be updated 
AQ : 3 BRB MAKSUA 3 go rewrite prolog 
1 40 ; 
1 41 ; Error occurred trying to rewrite the prolog. 
1 +g ; Update status code and return. The bdb was already 
! rh ; released in release due to the error. 
1 45 
1 46 ERRWPL: 
13 6— €9 1 47 BLBC (SP) ,20$ ; branch if already, had error 
OC AB ODS 4 48 TSTL FABSL_STV(R8) i o we nove an stv? 
09 =«12 7 49 BNEQ 10$ oy e it 
OC ASB 6E€ 00001000 BF C9 9 50 BISL3) #*x1000 (sp) ,Faasy_srvcniy®* else set the RMS error there 
Ee 51 10$:  RMSERR , (SPS ; Change status code 
01 BA E 26 208: POPR #*M<RO> ; pop Status off stack 
05 E9 5 RSB 3; return 
EA 54 
OFA 33 a t int t L th l 
3 Entry point to release the prolog. 
OEA 25 3 
OEA 38 : inputs: 
OEA 59 ; r4 bdb address 
OEA 60 ; r0 status code 
OEA 61; 
OEA 66 3; outputs: 
REA 65; R1-R5, AP destroyed 
EA 64 ; 
EA 65 ;-- 
EA 66 
EA 67 RMSRLSPLG:: 


H 3 | 
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niveee i. PD_PRO Ocoee ° ROUTINE TO UPDATE AND R misty 7 tt oe: §5 RMS. SRCIRMOE 2EXTEND.MAR; 1 oe (3) 
EA 3 PUSHL RO ; push status 
35 BRB RLSPLG ; go do release 
EE 9 
EE END 


Page 10 | 


RM2EXTEND PROLOG LOCK AND UPDATE ROUTINES 1 ~$£P- 1986 1:92:38 AX/VMS Macro Vv04-00 RM2( 
Symbol table ~SEP=1984 16:24: RMS .SRCIRMZEXTEND.MAR; 1 (9) | Tab! 
$$.PSECT_EP = 9 
$$.1MP = 
SSRMSTEST = A 
SSRMS_PBUGCHK s 19 
$SSRMS_ TBUGCHK = 
SSRMS_UMODE s 4 
BDBSB_FLGS = A 
BDBSM_DRT = y é 
BDBSM_VAL = 
CSHSM_LOCK = 1 
CSHSM_NOBUF FER s 8 
CSHSM~NOREAD z 8 04 
ERREXT C2 R 01 
ERRO! 4 4F R 01 
ERRRPE 39 R 01 
ERRRPL OO0000A1 R 01 
ERRWPL 444444 B 01 
FABSL_STV = 00000 of 
1FBSL_EBK = 00000074 
1F BSL _HBK = 4 44 A 
IFBSV~SEQFIL = 0000003 
MAK SUA 0000007A R 01 
PLG$B_FLAGS = 4454454 $4 
PLG$L_EOF = 0000007 | 
PLG$V_NOEXTEND = 00000000 
RLSSM_KEEP_LOCK = 00000004 
RLSS$M-WRT_THRU = 0000000 
RLSPL 00000097 R 01 
RMSCACHE tenenere = =X 01 
RMSCHKSUM eeeeeeee =X 01 | 
RMSLOCK PROLOG 0000000C RG 01 
KS eeekeeee x 01 
RMSRELEASE teneeeee X01 
RMSRLNER1 eeeneere =X | 0] 
RMSRLSPLG QOOOOOEA RG 01 
RMSSE THEBK 0000008A RG 01 
RMSUPD_PROLOG2 44 S434 RG 01 
S$_ERT = 0001C 6 
RMS$_RPL = 0001C104 
RMS$_ WPL = 0001C11C 
SE QF 0000009D R 01 
SEQLCK 00000000 R 01 
geese em nee eter oewee + 
! Psect synopsis ! 
ere er ee ene esc we + 
PSECT name Allocation PSECT No. Attributes | 
AB 00000000 < Q.} 90 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
RMSRMS2 OOOOOOEE (¢ 238.) O01 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
$$ 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE | 


§-3 
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! Performance indicators ! 


toes tenn een eee eee eee eo eee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00.08 :00:01.04 
Command processing 133 6; 5; 0:76 08: 3.75 
Pass 1 278 $: :08. :00:24.97 
Symbol table sort 0 :00:01.04 :00:02.45 
Pass 74 :00:01. 3: 8: 4.01 
Symbol table output 6 :00: 8-8 :00:00.41 
Psect synopsis output 1 :00:00. 00:00:00.0 
Cross-reference output 0 Ss eS BRS: 0.0 
Assembler run totals 521 0:00:12. 0:00: 36.6 


The working set Limit was 1350 pages. 

46784 bytes (92 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space ot eceree to hold 865 non-local and 5 local symbols. 
2 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 


HPP et eR HE ee Re OH SH 


“$255$DUA28:(SYS.OBJJLIB.MLB; 1 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 
TOTALS (all Libraries) 


997 GETS were required to define 17 macros. 


$555s0uks8: (S45 063118: ALB: | 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM2EXTEND/OBJ=OBJ$:RMZEXTEND MSRC$:RMZEXTEND/UPDATE=(ENHS:RMZEXTEND) +EXECMLS/LIB+L1B$:RMS/LIB 


o VO 
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